Datum+X dnu
Otázka od: Ales Pavel
23. 10. 2002 16:12
Mozna se budu ptat debilne, ale jak delate datum+x dnu (treba 35) a aby to
byl platny datum, je na to nejaka fce nebo staci pricist nejak + 35 a vrati
mi to potrebny datum? Jeste jsem to nikdy nepotreboval a sam se tomu ted
divim.. 
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak.cz
Odpovedá: Petr Vones
23. 10. 2002 16:47
From: "Ales Pavel" <Aldik@quick.cz>
> Mozna se budu ptat debilne, ale jak delate datum+x dnu (treba 35) a aby to
> byl platny datum, je na to nejaka fce nebo staci pricist nejak + 35 a vrati
> mi to potrebny datum? Jeste jsem to nikdy nepotreboval a sam se tomu ted
Staci pricist ale je na to i funkce IncDay v unitu DateUtils.
Petr Vones
Odpovedá: Lstiburek Pavel
23. 10. 2002 16:59
Pokud jde o dny skutecne staci pouze pricist
respektive odesist pozadovny pocet dnu.
Pokud jde o mesice nebo roky je nutno pouzit fce IncMonth.
Pavel
> Od: Ales Pavel [mailto:Aldik@quick.cz]
> Mozna se budu ptat debilne, ale jak delate datum+x dnu (treba
> 35) a aby to
> byl platny datum, je na to nejaka fce nebo staci pricist
> nejak + 35 a vrati
> mi to potrebny datum? Jeste jsem to nikdy nepotreboval a sam
> se tomu ted
> divim..
Odpovedá: Slavomir Cekel
23. 10. 2002 18:37
ahoj ...
var d: TTimeStamp;
DDatum: TDate;
begin
d := DateTimeToTimeStamp(Date);
d.Date := d.Date + 35;
DDatum := TimeStampToDateTime(d);
end;
Slavo
-----Original Message-----
From: Ales Pavel [mailto:Aldik@quick.cz]
Sent: Wednesday, October 23, 2002 4:24 PM
To: delphi
Subject: Datum+X dnu
Mozna se budu ptat debilne, ale jak delate datum+x dnu (treba 35) a aby
to
byl platny datum, je na to nejaka fce nebo staci pricist nejak + 35 a
vrati
mi to potrebny datum? Jeste jsem to nikdy nepotreboval a sam se tomu ted
divim..
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak.cz
__________ Informacia od NOD32 1.320 (20021022) __________
Tato sprava bola preverena systemom NOD32 pre Exchange.
http://www.eset.sk
Odpovedá: David Michal
23. 10. 2002 17:35
Zdravim,
Datum TDateTime je ve skutecnosti typ double. Kde nula znamena 30/12/1899
12:00 am.
Cela cast cisla je potom pocet dni od tohoto data a desetina cast urcuje
pomernou cast dne.
Takze vztazeno k tve otazce pricitat si muzes kolik chces, vzdy ti to da
spravne datum.
Napr.
var
d : TDateTime;
begin
d := date; (23.10.2002)
d := d + 10
ShowMessage(DateToStr(d));
end;
Zobrazi: 2/11/2002
David
-----Original Message-----
From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz]On
Behalf Of Ales Pavel
Sent: 23 October 2002 16:24
To: delphi
Subject: Datum+X dnu
Mozna se budu ptat debilne, ale jak delate datum+x dnu (treba 35) a aby to
byl platny datum, je na to nejaka fce nebo staci pricist nejak + 35 a vrati
mi to potrebny datum? Jeste jsem to nikdy nepotreboval a sam se tomu ted
divim..
Hezky den
Ales Pavel
TalpaSoft - software pro kazdeho
tel:0777/992792
web: http://Talpa.chytrak.cz
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.406 / Virus Database: 229 - Release Date: 21/10/2002